home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PWAPCP02.ZIP
/
PWRBALL2
/
CHECKPIK.PPD
next >
Wrap
Text File
|
1995-11-15
|
10KB
|
363 lines
;------------------------------------------------------------------------------
;PCBoard Programming Language Decompiler 3.00 (C)1994-95 Chicken / Tools4Fools
;------------------------------------------------------------------------------
;
;PCBoard Programming Language Executable 3.10 detected.
;
;Source Code:
;------------------------------------------------------------------------------
STRING VAR001
STRING VAR002
STRING VAR003
STRING VAR004
STRING VAR005
STRING VAR006
BYTE VAR007
BYTE VAR008
BYTE VAR009
BYTE VAR010
BYTE VAR011
BYTE VAR012
BYTE VAR013
BYTE VAR014
BYTE VAR015
BYTE VAR016
BYTE VAR017
BYTE VAR018
BYTE VAR019
BYTE VAR020
;------------------------------------------------------------------------------
CLS
PRINTLN ""
PRINTLN ""
PRINTLN "@X09 POWERBALL PICK WINNERS DISPLAY FILE BUILDER@X07"
PRINTLN ""
PRINTLN "@X0F Enter Date , Example:8-22-94 or 11-6-95 (Note no leading Zeros)"
INPUTSTR "Date of Lotto Pick you are Checking?",VAR002,10,8,"1234567890"+"-",DEFS
IF (!EXIST(PPEPATH()+"CHECKPIK.CFG")) GOTO LABEL042
;IF (EXIST(PPEPATH()+STRING(VAR002))) GOTO LABEL042
:LABEL000
INPUTSTR "Enter First Number Drawn ",VAR013,7,2,"1234567890",LFBEFORE
INPUTSTR "Enter Second Number Drawn ",VAR014,7,2,"1234567890",LFBEFORE
INPUTSTR "Enter Third Number Drawn ",VAR015,7,2,"1234567890",LFBEFORE
INPUTSTR "Enter Fourth Number Drawn ",VAR016,7,2,"1234567890",LFBEFORE
INPUTSTR "Enter Fifth Number Drawn ",VAR017,7,2,"1234567890",LFBEFORE
INPUTSTR "Enter the POWERBALL that was Drawn ",VAR018,7,2,"1234567890",128+64
PRINTLN ""
PRINTLN "@X0BYOU ENTERED...@X07",+STRING(VAR013)+" ",+STRING(VAR014)+" ",+STRING(VAR015)+" ",+STRING(VAR016)+" ",+STRING(VAR017)+"@X0C ",+STRING(VAR018)
INPUTSTR "ARE THESE NUMBERS CORRECT? (Y)es or (N)o",VAR001,10,1,"YN",16384+2
IF (VAR001="N") GOTO LABEL000
FOPEN 2,PPEPATH()+"CHECKPIK.CFG",O_RD,S_DN
FGET 2,VAR003
FCLOSE 2
PRINTLN ""
PRINTLN ""
PRINTLN "@X0B BUILDING WINNERS DISPLAY FILE ",VAR003," PLEASE WAIT....."
FCREATE 3,VAR003,O_WR,S_DN
FPUTLN 3
FPUTLN 3,"@CLS@"
FPUTLN 3
FPUTLN 3," @X7F @X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐▐@X4E┌@X40───┐@X4E┌@X40───┐@X4E┌@X40───┐@X4E┌@X40───┐@X07"
FPUTLN 3," @X7F @X1B│ @X1FP @X10│@X1B│ @X1FO @X10│@X1B│ @X1FW @X10│@X1B│ @X1FE @X10│@X1B│ @X1FR @X10│@X70▐@X4E│ @X4FB @X40│@X4E│ @X4FA @X40│@X4E│ @X4FL @X40│@X4E│ @X4FL @X40│@X07"
FPUTLN 3," @X7F @X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘▐@X4E└───@X40┘@X4E└───@X40┘@X4E└───@X40┘@X4E└───@X40┘@X07"
FPUTLN 3,"@X07 @X0EDID YOU PLAY THE POWERBALL NUMBERS SHOWN TO YOU HERE@X0D??"
FPUTLN 3," @X0BTHESE CALLERS ARE WINNERS IF THEY PLAYED THEIR NUMBERS@X0C!!!"
FPUTLN 3," @X09DRAWING DATE....@X0C",+STRING(VAR002)," @X09 WINNING NUMBERS ....@X0F ",+STRING(VAR013)+" ",+STRING(VAR014)+" ",+STRING(VAR015)+" ",+STRING(VAR016)+" ",+STRING(VAR017)+"@X0C ",+STRING(VAR018)
FPUTLN 3,"@X07-------------------------------------------------------------------------------"
FPUTLN 3,"@X0E@POS:18@NAME @POS:47@WINNINGS"
FPUTLN 3,"@X07-------------------------------------------------------------------------------"
FOPEN 1,PPEPATH()+STRING(VAR002),O_RD,S_DN
:LABEL001
LET VAR019=0
LET VAR020=0
FGET 1,VAR004
FGET 1,VAR005
IF (FERR(1)) GOTO LABEL039
TOKENIZE VAR005
:LABEL002
IF (!(TOKCOUNT()>0)) GOTO LABEL003
LET VAR007=GETTOKEN()
LET VAR008=GETTOKEN()
LET VAR009=GETTOKEN()
LET VAR010=GETTOKEN()
LET VAR011=GETTOKEN()
LET VAR012=GETTOKEN()
GOTO LABEL002
:LABEL003
IF (!(VAR013=VAR007)) GOTO LABEL004
LET VAR019=VAR019+1
GOTO LABEL008
:LABEL004
IF (!(VAR013=VAR008)) GOTO LABEL005
LET VAR019=VAR019+1
GOTO LABEL008
:LABEL005
IF (!(VAR013=VAR009)) GOTO LABEL006
LET VAR019=VAR019+1
GOTO LABEL008
:LABEL006
IF (!(VAR013=VAR010)) GOTO LABEL007
LET VAR019=VAR019+1
GOTO LABEL008
:LABEL007
IF (!(VAR013=VAR011)) GOTO LABEL008
LET VAR019=VAR019+1
GOTO LABEL008
:LABEL008
IF (!(VAR014=VAR007)) GOTO LABEL009
LET VAR019=VAR019+1
GOTO LABEL013
:LABEL009
IF (!(VAR014=VAR008)) GOTO LABEL010
LET VAR019=VAR019+1
GOTO LABEL013
:LABEL010
IF (!(VAR014=VAR009)) GOTO LABEL011
LET VAR019=VAR019+1
GOTO LABEL013
:LABEL011
IF (!(VAR014=VAR010)) GOTO LABEL012
LET VAR019=VAR019+1
GOTO LABEL013
:LABEL012
IF (!(VAR014=VAR011)) GOTO LABEL013
LET VAR019=VAR019+1
GOTO LABEL013
:LABEL013
IF (!(VAR015=VAR007)) GOTO LABEL014
LET VAR019=VAR019+1
GOTO LABEL018
:LABEL014
IF (!(VAR015=VAR008)) GOTO LABEL015
LET VAR019=VAR019+1
GOTO LABEL018
:LABEL015
IF (!(VAR015=VAR009)) GOTO LABEL016
LET VAR019=VAR019+1
GOTO LABEL018
:LABEL016
IF (!(VAR015=VAR010)) GOTO LABEL017
LET VAR019=VAR019+1
GOTO LABEL018
:LABEL017
IF (!(VAR015=VAR011)) GOTO LABEL018
LET VAR019=VAR019+1
GOTO LABEL018
:LABEL018
IF (!(VAR016=VAR007)) GOTO LABEL019
LET VAR019=VAR019+1
GOTO LABEL023
:LABEL019
IF (!(VAR016=VAR008)) GOTO LABEL020
LET VAR019=VAR019+1
GOTO LABEL023
:LABEL020
IF (!(VAR016=VAR009)) GOTO LABEL021
LET VAR019=VAR019+1
GOTO LABEL023
:LABEL021
IF (!(VAR016=VAR010)) GOTO LABEL022
LET VAR019=VAR019+1
GOTO LABEL023
:LABEL022
IF (!(VAR016=VAR011)) GOTO LABEL023
LET VAR019=VAR019+1
GOTO LABEL023
:LABEL023
IF (!(VAR017=VAR007)) GOTO LABEL024
LET VAR019=VAR019+1
GOTO LABEL028
:LABEL024
IF (!(VAR017=VAR008)) GOTO LABEL025
LET VAR019=VAR019+1
GOTO LABEL028
:LABEL025
IF (!(VAR017=VAR009)) GOTO LABEL026
LET VAR019=VAR019+1
GOTO LABEL028
:LABEL026
IF (!(VAR017=VAR010)) GOTO LABEL027
LET VAR019=VAR019+1
GOTO LABEL028
:LABEL027
IF (!(VAR017=VAR011)) GOTO LABEL028
LET VAR019=VAR019+1
GOTO LABEL028
:LABEL028
IF (VAR018=VAR012) LET VAR020=VAR020+1
IF ((VAR019=0)&(VAR020=0)) GOTO LABEL001
IF (!((VAR019=0)&(VAR020=1))) GOTO LABEL029
LET VAR006="$1.00"
GOTO LABEL038
:LABEL029
IF (!((VAR019=1)&(VAR020=1))) GOTO LABEL030
LET VAR006="$2.00"
GOTO LABEL038
:LABEL030
IF (!((VAR019=2)&(VAR020=1))) GOTO LABEL031
LET VAR006="$5.00"
GOTO LABEL038
:LABEL031
IF (!((VAR019=3)&(VAR020=0))) GOTO LABEL032
LET VAR006="$5.00"
GOTO LABEL038
:LABEL032
IF (!((VAR019=3)&(VAR020=1))) GOTO LABEL033
LET VAR006="$100"
GOTO LABEL038
:LABEL033
IF (!((VAR019=4)&(VAR020=0))) GOTO LABEL034
LET VAR006="$100"
GOTO LABEL038
:LABEL034
IF (!((VAR019=4)&(VAR020=1))) GOTO LABEL035
LET VAR006="$5,000"
GOTO LABEL038
:LABEL035
IF (!((VAR019=5)&(VAR020=0))) GOTO LABEL036
LET VAR006="$100,000"
GOTO LABEL038
:LABEL036
IF (!((VAR019=5)&(VAR020=1))) GOTO LABEL037
LET VAR006="JACKPOT!!!"
GOTO LABEL038
:LABEL037
GOTO LABEL001
:LABEL038
FPUTLN 3,"@X0A@POS:13@",VAR004,"@X0F@POS:53@",VAR006
GOTO LABEL001
:LABEL039
PRINTLN " @X0A....DONE!"
PRINTLN "@X0F THANK YOU FOR USING POWERBALL PICK FROM LOWER LEVEL SOFTWARE "
IF (VAR006="") GOTO LABEL040
FPUTLN 3
FPUTLN 3,"@X09 THANK YOU FOR USING POWERBALL PICK FROM LOWER LEVEL SOFTWARE"
FPUTLN 3,SPACE(14),"@X0FREGISTERED TO:@X0C @BOARDNAME@@X07"
FPUTLN 3
FPUTLN 3
FPUTLN 3,"@WAIT@"
FCLOSEALL
DELETE PPEPATH()+VAR002
DELAY 45
END
:LABEL040
FPUTLN 3
FPUTLN 3
FPUTLN 3
FPUTLN 3,"@X0A NO WINNERS@X07"
FPUTLN 3
FPUTLN 3
FPUTLN 3
FPUTLN 3,"@X09 THANK YOU FOR USING POWERBALL PICK FROM LOWER LEVEL SOFTWARE"
FPUTLN 3,SPACE(14),"@X0FREGISTERED TO:@X0C @BOARDNAME@@X07"
FPUTLN 3
FPUTLN 3
FPUTLN 3,"@WAIT@"
FCLOSEALL
DELETE PPEPATH()+VAR002
DELAY 45
END
:LABEL041
PRINTLN ""
PRINTLN "@X8C WARNING!@X07 NOT A VALID DRAWING DATE -OR- THIS PROGRAM IS UN-REGISTERED"
PRINTLN ""
PRINTLN ""
PRINTLN ""
WAIT
END
:LABEL042
PRINTLN ""
PRINTLN " ERROR--- CHECKPIK.CFG FILE IS MISSING......ABORTING"
END
;------------------------------------------------------------------------------
;Statements used:
;
; 4 END
; 1 CLS
; 1 WAIT
; 78 GOTO
; 43 LET
; 19 PRINTLN
; 42 IF
; 1 FCREATE
; 2 FOPEN
; 1 FCLOSE
; 3 FGET
; 31 FPUTLN
; 2 DELETE
; 8 INPUTSTR
; 2 DELAY
; 1 TOKENIZE
; 2 FCLOSEALL
;
;Functions used:
;
; 13 +
; 45 +
; 48 =
; 1 >
; 37 !
; 10 &
; 2 SPACE
; 1 FERR
; 15 STRING
; 6 PPEPATH
; 6 GETTOKEN
; 2 EXIST
; 1 TOKCOUNT
;
;------------------------------------------------------------------------------
;Thank you for using PPLD T4F - We Create Your Needs Of Tommorow !
;------------------------------------------------------------------------------